home *** CD-ROM | disk | FTP | other *** search
- /* ../sym/3DController.bproj/Constrain.c generated from Constrain.psw
- by unix pswrap V1.009 Wed Apr 19 17:50:24 PDT 1989
- */
-
- #include <dpsclient/dpsfriends.h>
- #include <string.h>
-
- #line 1 "Constrain.psw"
- #line 10 "../sym/3DController.bproj/Constrain.c"
- void PSarcfill(float gray, float x, float y, float r, float a1, float a2)
- {
- typedef struct {
- unsigned char tokenType;
- unsigned char topLevelCount;
- unsigned short nBytes;
-
- DPSBinObjReal obj0;
- DPSBinObjGeneric obj1;
- DPSBinObjGeneric obj2;
- DPSBinObjReal obj3;
- DPSBinObjReal obj4;
- DPSBinObjGeneric obj5;
- DPSBinObjReal obj6;
- DPSBinObjReal obj7;
- DPSBinObjReal obj8;
- DPSBinObjReal obj9;
- DPSBinObjReal obj10;
- DPSBinObjGeneric obj11;
- DPSBinObjGeneric obj12;
- DPSBinObjGeneric obj13;
- } _dpsQ;
- static const _dpsQ _dpsStat = {
- DPS_DEF_TOKENTYPE, 14, 116,
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: gray */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 150}, /* setgray */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 111}, /* newpath */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: r */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: a1 */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: a2 */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 5}, /* arc */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 22}, /* closepath */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 66}, /* fill */
- }; /* _dpsQ */
- _dpsQ _dpsF; /* local copy */
- register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
- char pad[3];
- register DPSBinObjRec *_dpsP = (DPSBinObjRec *)&_dpsF.obj0;
- _dpsF = _dpsStat; /* assign automatic variable */
-
- _dpsP[0].val.realVal = gray;
- _dpsP[3].val.realVal =
- _dpsP[6].val.realVal = x;
- _dpsP[4].val.realVal =
- _dpsP[7].val.realVal = y;
- _dpsP[8].val.realVal = r;
- _dpsP[9].val.realVal = a1;
- _dpsP[10].val.realVal = a2;
- DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,116);
- if (0) *pad = 0; /* quiets compiler warnings */
- }
- #line 7 "Constrain.psw"
-
- #line 69 "../sym/3DController.bproj/Constrain.c"
- void PScolordrawAxes(float x, float y, float xOff, float yOff, float rad)
- {
- typedef struct {
- unsigned char tokenType;
- unsigned char topLevelCount;
- unsigned short nBytes;
-
- DPSBinObjReal obj0;
- DPSBinObjGeneric obj1;
- DPSBinObjGeneric obj2;
- DPSBinObjGeneric obj3;
- DPSBinObjGeneric obj4;
- DPSBinObjGeneric obj5;
- DPSBinObjReal obj6;
- DPSBinObjReal obj7;
- DPSBinObjGeneric obj8;
- DPSBinObjGeneric obj9;
- DPSBinObjReal obj10;
- DPSBinObjGeneric obj11;
- DPSBinObjGeneric obj12;
- DPSBinObjGeneric obj13;
- DPSBinObjGeneric obj14;
- DPSBinObjGeneric obj15;
- DPSBinObjGeneric obj16;
- DPSBinObjReal obj17;
- DPSBinObjReal obj18;
- DPSBinObjGeneric obj19;
- DPSBinObjReal obj20;
- DPSBinObjGeneric obj21;
- DPSBinObjReal obj22;
- DPSBinObjGeneric obj23;
- DPSBinObjGeneric obj24;
- DPSBinObjGeneric obj25;
- DPSBinObjGeneric obj26;
- DPSBinObjGeneric obj27;
- DPSBinObjGeneric obj28;
- DPSBinObjReal obj29;
- DPSBinObjReal obj30;
- DPSBinObjGeneric obj31;
- DPSBinObjReal obj32;
- DPSBinObjReal obj33;
- DPSBinObjGeneric obj34;
- DPSBinObjGeneric obj35;
- DPSBinObjGeneric obj36;
- DPSBinObjGeneric obj37;
- DPSBinObjReal obj38;
- DPSBinObjGeneric obj39;
- DPSBinObjGeneric obj40;
- DPSBinObjReal obj41;
- DPSBinObjReal obj42;
- DPSBinObjGeneric obj43;
- DPSBinObjGeneric obj44;
- DPSBinObjGeneric obj45;
- DPSBinObjGeneric obj46;
- DPSBinObjGeneric obj47;
- DPSBinObjGeneric obj48;
- DPSBinObjReal obj49;
- DPSBinObjReal obj50;
- DPSBinObjGeneric obj51;
- DPSBinObjGeneric obj52;
- DPSBinObjGeneric obj53;
- DPSBinObjReal obj54;
- DPSBinObjReal obj55;
- DPSBinObjGeneric obj56;
- DPSBinObjGeneric obj57;
- DPSBinObjGeneric obj58;
- DPSBinObjGeneric obj59;
- DPSBinObjGeneric obj60;
- DPSBinObjGeneric obj61;
- DPSBinObjReal obj62;
- DPSBinObjReal obj63;
- DPSBinObjGeneric obj64;
- DPSBinObjReal obj65;
- DPSBinObjReal obj66;
- DPSBinObjGeneric obj67;
- DPSBinObjGeneric obj68;
- DPSBinObjGeneric obj69;
- DPSBinObjGeneric obj70;
- DPSBinObjGeneric obj71;
- DPSBinObjGeneric obj72;
- DPSBinObjGeneric obj73;
- char obj74[1];
- char obj75[1];
- char obj76[1];
- } _dpsQ;
- static const _dpsQ _dpsStat = {
- DPS_DEF_TOKENTYPE, 74, 599,
- {DPS_LITERAL|DPS_REAL, 0, 0, 2.},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 155}, /* setlinewidth */
- {DPS_LITERAL|DPS_INT, 0, 0, 0},
- {DPS_LITERAL|DPS_INT, 0, 0, 1},
- {DPS_LITERAL|DPS_INT, 0, 0, 0},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 157}, /* setrgbcolor */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
- {DPS_LITERAL|DPS_INT, 0, 0, 0},
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: rad */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 133}, /* rlineto */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
- {DPS_LITERAL|DPS_INT, 0, 0, 1},
- {DPS_LITERAL|DPS_INT, 0, 0, 0},
- {DPS_LITERAL|DPS_INT, 0, 0, 0},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 157}, /* setrgbcolor */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: xOff */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 110}, /* neg */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: yOff */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 133}, /* rlineto */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
- {DPS_LITERAL|DPS_INT, 0, 0, 0},
- {DPS_LITERAL|DPS_INT, 0, 0, 0},
- {DPS_LITERAL|DPS_INT, 0, 0, 1},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 157}, /* setrgbcolor */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: xOff */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: yOff */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 133}, /* rlineto */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
- {DPS_LITERAL|DPS_INT, 0, 0, 0},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 150}, /* setgray */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
- {DPS_LITERAL|DPS_INT, 0, 0, 4},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: rad */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_LITERAL|DPS_INT, 0, 0, 15},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 169}, /* sub */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
- {DPS_LITERAL|DPS_STRING, 0, 1, 594},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 160}, /* show */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: xOff */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_LITERAL|DPS_INT, 0, 0, 5},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 169}, /* sub */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: yOff */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_LITERAL|DPS_INT, 0, 0, 10},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
- {DPS_LITERAL|DPS_STRING, 0, 1, 593},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 160}, /* show */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: xOff */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 169}, /* sub */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: yOff */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_LITERAL|DPS_INT, 0, 0, 10},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
- {DPS_LITERAL|DPS_STRING, 0, 1, 592},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 160}, /* show */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
- {'X'},
- {'Z'},
- {'Y'},
- }; /* _dpsQ */
- _dpsQ _dpsF; /* local copy */
- register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
- char pad[3];
- register DPSBinObjRec *_dpsP = (DPSBinObjRec *)&_dpsF.obj0;
- _dpsF = _dpsStat; /* assign automatic variable */
-
- _dpsP[6].val.realVal =
- _dpsP[17].val.realVal =
- _dpsP[29].val.realVal =
- _dpsP[38].val.realVal =
- _dpsP[49].val.realVal =
- _dpsP[62].val.realVal = x;
- _dpsP[7].val.realVal =
- _dpsP[18].val.realVal =
- _dpsP[30].val.realVal =
- _dpsP[41].val.realVal =
- _dpsP[54].val.realVal =
- _dpsP[65].val.realVal = y;
- _dpsP[20].val.realVal =
- _dpsP[32].val.realVal =
- _dpsP[50].val.realVal =
- _dpsP[63].val.realVal = xOff;
- _dpsP[22].val.realVal =
- _dpsP[33].val.realVal =
- _dpsP[55].val.realVal =
- _dpsP[66].val.realVal = yOff;
- _dpsP[10].val.realVal =
- _dpsP[42].val.realVal = rad;
- DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,599);
- if (0) *pad = 0; /* quiets compiler warnings */
- }
- #line 20 "Constrain.psw"
-
- #line 268 "../sym/3DController.bproj/Constrain.c"
- void PSdrawAxes(float x, float y, float xOff, float yOff, float rad)
- {
- typedef struct {
- unsigned char tokenType;
- unsigned char topLevelCount;
- unsigned short nBytes;
-
- DPSBinObjGeneric obj0;
- DPSBinObjGeneric obj1;
- DPSBinObjReal obj2;
- DPSBinObjGeneric obj3;
- DPSBinObjReal obj4;
- DPSBinObjReal obj5;
- DPSBinObjGeneric obj6;
- DPSBinObjGeneric obj7;
- DPSBinObjReal obj8;
- DPSBinObjGeneric obj9;
- DPSBinObjReal obj10;
- DPSBinObjReal obj11;
- DPSBinObjGeneric obj12;
- DPSBinObjReal obj13;
- DPSBinObjReal obj14;
- DPSBinObjGeneric obj15;
- DPSBinObjReal obj16;
- DPSBinObjReal obj17;
- DPSBinObjGeneric obj18;
- DPSBinObjReal obj19;
- DPSBinObjGeneric obj20;
- DPSBinObjReal obj21;
- DPSBinObjGeneric obj22;
- DPSBinObjGeneric obj23;
- DPSBinObjReal obj24;
- DPSBinObjGeneric obj25;
- DPSBinObjGeneric obj26;
- DPSBinObjReal obj27;
- DPSBinObjReal obj28;
- DPSBinObjGeneric obj29;
- DPSBinObjGeneric obj30;
- DPSBinObjGeneric obj31;
- DPSBinObjGeneric obj32;
- DPSBinObjGeneric obj33;
- DPSBinObjGeneric obj34;
- DPSBinObjReal obj35;
- DPSBinObjReal obj36;
- DPSBinObjGeneric obj37;
- DPSBinObjGeneric obj38;
- DPSBinObjGeneric obj39;
- DPSBinObjReal obj40;
- DPSBinObjReal obj41;
- DPSBinObjGeneric obj42;
- DPSBinObjGeneric obj43;
- DPSBinObjGeneric obj44;
- DPSBinObjGeneric obj45;
- DPSBinObjGeneric obj46;
- DPSBinObjGeneric obj47;
- DPSBinObjReal obj48;
- DPSBinObjReal obj49;
- DPSBinObjGeneric obj50;
- DPSBinObjReal obj51;
- DPSBinObjReal obj52;
- DPSBinObjGeneric obj53;
- DPSBinObjGeneric obj54;
- DPSBinObjGeneric obj55;
- DPSBinObjGeneric obj56;
- DPSBinObjGeneric obj57;
- DPSBinObjGeneric obj58;
- DPSBinObjGeneric obj59;
- char obj60[1];
- char obj61[1];
- char obj62[1];
- } _dpsQ;
- static const _dpsQ _dpsStat = {
- DPS_DEF_TOKENTYPE, 60, 487,
- {DPS_LITERAL|DPS_INT, 0, 0, 0},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 150}, /* setgray */
- {DPS_LITERAL|DPS_REAL, 0, 0, 2.},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 155}, /* setlinewidth */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
- {DPS_LITERAL|DPS_INT, 0, 0, 0},
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: rad */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 133}, /* rlineto */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: xOff */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: yOff */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 133}, /* rlineto */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: xOff */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 110}, /* neg */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: yOff */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 133}, /* rlineto */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
- {DPS_LITERAL|DPS_INT, 0, 0, 4},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: rad */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_LITERAL|DPS_INT, 0, 0, 15},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 169}, /* sub */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
- {DPS_LITERAL|DPS_STRING, 0, 1, 482},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 160}, /* show */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: xOff */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_LITERAL|DPS_INT, 0, 0, 5},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 169}, /* sub */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: yOff */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_LITERAL|DPS_INT, 0, 0, 10},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
- {DPS_LITERAL|DPS_STRING, 0, 1, 481},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 160}, /* show */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: x */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: xOff */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 169}, /* sub */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: y */
- {DPS_LITERAL|DPS_REAL, 0, 0, 0}, /* param: yOff */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_LITERAL|DPS_INT, 0, 0, 10},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 1}, /* add */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 107}, /* moveto */
- {DPS_LITERAL|DPS_STRING, 0, 1, 480},
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 160}, /* show */
- {DPS_EXEC|DPS_NAME, 0, DPSSYSNAME, 167}, /* stroke */
- {'X'},
- {'Z'},
- {'Y'},
- }; /* _dpsQ */
- _dpsQ _dpsF; /* local copy */
- register DPSContext _dpsCurCtxt = DPSPrivCurrentContext();
- char pad[3];
- register DPSBinObjRec *_dpsP = (DPSBinObjRec *)&_dpsF.obj0;
- _dpsF = _dpsStat; /* assign automatic variable */
-
- _dpsP[4].val.realVal =
- _dpsP[10].val.realVal =
- _dpsP[16].val.realVal =
- _dpsP[24].val.realVal =
- _dpsP[35].val.realVal =
- _dpsP[48].val.realVal = x;
- _dpsP[5].val.realVal =
- _dpsP[11].val.realVal =
- _dpsP[17].val.realVal =
- _dpsP[27].val.realVal =
- _dpsP[40].val.realVal =
- _dpsP[51].val.realVal = y;
- _dpsP[13].val.realVal =
- _dpsP[19].val.realVal =
- _dpsP[36].val.realVal =
- _dpsP[49].val.realVal = xOff;
- _dpsP[14].val.realVal =
- _dpsP[21].val.realVal =
- _dpsP[41].val.realVal =
- _dpsP[52].val.realVal = yOff;
- _dpsP[8].val.realVal =
- _dpsP[28].val.realVal = rad;
- DPSBinObjSeqWrite(_dpsCurCtxt,(char *) &_dpsF,487);
- if (0) *pad = 0; /* quiets compiler warnings */
- }
- #line 32 "Constrain.psw"
-